predictionsDialog <- function(){
	.activeModel <- ActiveModel()
	if (is.null(.activeModel)) {
		Message(gettext("You must select a model.",domain="R-RcmdrPlugin.TeachingExtras"))
		tkfocus(CommanderWindow())
		return()
	}
	initializeDialog(title = gettext("Model predictions", domain="R-RcmdrPlugin.TeachingExtras"))
	onOK <- function() {
		command <- paste("predictions(",.activeModel,",c(",tclvalue(values),"))")
		doItAndPrint(command)
		closeDialog()
		tkfocus(CommanderWindow())
	}
	
	OKCancelHelp(helpSubject = "predictions")
	valuesFrame <- tkframe(top)
	values <- tclVar("")
	valuesField <- tkentry(valuesFrame, width = "10", textvariable = values)
	tkgrid(labelRcmdr(valuesFrame, text=gettext("Predictions for: ", domain="R-RcmdrPlugin.TeachingExtras")),valuesField, sticky = "w")
	tkgrid(valuesFrame, sticky="w")
	tkgrid(buttonsFrame, sticky = "w")
	dialogSuffix(rows = 2, columns = 1)
}